home *** CD-ROM | disk | FTP | other *** search
/ Gigarom 1 / Gigarom Macintosh Archives (Quantum Leap)(CDRM1080320)(1993).iso / FILES / HYP / C-D / DeveloperStax.cpt / Developer Stack 1.1 / card_8871.txt < prev    next >
Text File  |  1989-02-26  |  1KB  |  44 lines
  1. -- card: 8871 from stack: in.1
  2. -- bmap block id: 0
  3. -- flags: 0000
  4. -- background id: 13187
  5. -- name: ShowScripts
  6.  
  7.  
  8. -- part contents for background part 4
  9. ----- text -----
  10. 4
  11.  
  12. -- part contents for background part 2
  13. ----- text -----
  14. ShowScripts
  15.  
  16. -- part contents for background part 3
  17. ----- text -----
  18. --
  19. --‚Ä¢‚Ä¢‚Ä¢by Steve Drazga 12/87‚Ä¢‚Ä¢‚Ä¢
  20. --
  21. --This will show the 'edit script' box of any button, field or card you click on while the 
  22. --option key is --held down.  If you hold the option and shift keys down, it will show the 
  23. --script of the background.
  24. --This script should be in the stack script.  
  25.  
  26. on mouseup
  27.   if (first word of the name of the target) is "card" ¬¨
  28.   or  (first word of the name of the target) is "bkgnd" then
  29.     if the optionkey is not down then exit mouseup
  30.   end if
  31.   
  32.   if the shiftkey is down then
  33.     edit script of this background
  34.   else
  35.     edit script of target
  36.   end if
  37. end mouseup
  38.  
  39. --
  40. --For this to work on objects that have their own scripts,  you should include the following
  41. --script at the beginning.
  42. --
  43.   if the optionkey is down then pass mouseup
  44.